program minmax

var
  minimum, maximum, x, y:int
  
begin
  Write(in "value > ")
  Read(out x)
  Write(in "value > ")
  Read(out y)
  if x<y then 
    minimum := x
    maximum := y
  else 
    maximum := x
    minimum := y
  end -- if/else
  Write(in "minimum: " in minimum in "  maximum: " in maximum)
  Read()  
end -- program minMax
